home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / intrfc62.zip / TEST1.INC < prev    next >
Text File  |  1990-12-18  |  104b  |  8 lines

  1.     function    fun;
  2.     var
  3.       x : double;
  4.     begin
  5.       x := 0;
  6.       x := x*x;
  7.     end;
  8.